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H 10 

16-Sep-1984 00:16:37 VAX=11 FORTRAN V¥3.4-56 Page 1 
g7900- 138% 90:16:31 DI SKSVMSMASTER: CERF SRCITUBISENSE FORTY 
Subroutine TU81_SENSE_BYTES_DECODE (Lun) 


1 
C 
g : Version: *v04-000' 
5 Se ee pee ee ee ae eee ae 
Ww fr 
C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 4 
8 C* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
3 ES ALL RIGHTS RESERVED. * 
® 
11 C* THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
\¢ C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
1 C* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE ANY OTHER * 
0014 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0015 C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
Bog FS TRANSFERRED. * 
® ® 
Bots C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
19 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
34 es CORPORATION. * 
® 
BO5¢ C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
002 C* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0024 Ce * 
0025 Ce * 
Bose ee ee ee et ae ee 
Bog8 : Author: Sharon Reynolds Creation Date: 5-Jul-1984 
0080 : Description: 
it 34 C This routine decodes the device dependent information 
003 C for the TU81 that is returned with a ‘tape tranfer error’ 
0034 C packet. 
0035 C 
0036 (-- 
0037 Cee 
0038 
0039 Include *SRC$:MSGHDR /nolist' 
0098 
0099 
Bigs Byte lun, code, extended_sense(0:15) 
sie Logical! bit 
Bie Integer*4 COMPRESS4 
Hy Equivalence (emb(82) ,extended_sense) 
108 Character*22 byte_0(0:7) 
109 Data byte_0(0) /‘UNIT EXCEPTION®'/ 
110 Data byte_0(1) /*UNIT CHECK®'/ 
ae Data byte_0(3) /"DATA CHECKe'/ 
\1¢ Data byte_0(4) /"EQUIPMENT CHECK*'/ 
011 Data byte_ 4 /* INTERVENTION REQUIRED*'/ 
Bite Data byte_0(7) /*COMMAND REJECT#'/ 
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10 
TU81_SENSE_BYTES_DECODE Ipege 1984 00:16:37 VAX=11 FORTRAN V3.4-56 Page 2 TU’ 
~300 71382 90:38:34 DI SKSVMSMASTER: CERF .SRCITUBTSENSE.FORSY 
116 Character*24 byte_1(0:7) Fs 
11 ata _—cbytte_1(0) / DEVICE OFFLINE®' ( 
118 Data  byte_1(1) /"DEVICE NOT READY®'/ > 
11 Data  byte_1(3) /*RESET KEY®'/ 2 
120 Data byte_1(4) /"FILE PROTECTED®'/ 05( 
121 Data byte=1 (6) /*DEVICE COMMAND CHECK*' O35! 
\ ¢ Data  byte_1(7) /*ILLEGAL CHANNEL COMMAND®'/ O31 
124 Character*23 — byte_2(0:7) 05! 
125 ata _— bytte_2(0) /"DEVICE INTERRUPT CHECK®'/ 05' 
1 $ Data byte_e(1) /*VELOCITY CHECK®'/ 05 
1 Data byte_ @) / DEVICE HARDWARE CHECK®'/ 05° 
128 Data byte _2(3) /"DEVICE RESPONSE CHECK®'/ 05 
129 Data  byte_2(4) /"WRITE HARDWARE CHECK*'/ 05 
0130 Data byte _2(5) 7*READ HARDWARE CHECK*'/ 05 
0131 Data byte_ (6) /"CHANNEL RESPONSE CHECK®'/ 05 
4 ; Data byte_2(7) /"CHANNEL PARITY ERROR®*'/ 32 
01 Character*14 byte 3_prti(0:2) 05 
0135 ata yte_3_prt1(0)~ /*TAPE MOVED®'/ 05 
B98 Data byte_S_prti(1) /*BOT*' 05 
aE H4 Data byte _S_prt1(2) /*UNRECOVERABLE®'/ g2 
0139 Character*16 byte_3_prt2(4:7) 05 
0140 Data byte_3_prt2(4)~ /*ID FAULT®'/ 05 
0141 Data byte 3_prte(5) /*READ DATA CHECK®'/ 05 
O142 Data byte 3_prt (6) /*PE CRC CHECK®'/ 05 
O145 Data byte S-prt2(7) /*AGC FAULT®'/ 93 
O148 Character*26 byte_5(0:7) 05 
0146 Data byte_5(0) /"VARIABLE GAP MODE (SHORT) *®'/ 05 
0147 Data  byte_5(1) /"VARIABLE GAP MODE (LONG)*'/ 05 
0148 Data byte-9(@) /"START/STOP MODE®'/ 05 
0149 Data byte _5(3) /"DIAGNOSTIC MODE®'/ 05 
0150 Data byte 5(4) /*FILE MARK DETECTED®'/ 05 
0151 Data byte_5(5) /*AUTO SPEED MODE®'/ 05 
8136 Data byte_3{G) /*HIGH SPEED MODE*'/ 05 
S27 Data byte_5(7) /"GCR MODE*'/ b2 
o18¢ Character*33 byte_6(2:7) 05: 
0156 Data byte_6(2) /"WRITE AUXILIARY CRC PARITY ERROR®'/ 05: 
0137 Data byte6(4) 7°45 PARITY ERROR®'/ 5 
158 Data byte _6(5) /"WRITE CRC PARITY ERROR*'/ 5 
9139 Data byte_6(6) /*RESIDUAL BYTE COUNT CHECK®'/ 5 
160 Data byte _6(7) /*WRITE TRANSFER CHECK®'/ oe 
Ole Character*25 byte_7(0:7) 5 
16 Data byte_7(0) /"EXCESSIVE POINTERS*'/ 5 
164 Data  byte_7(1) 7'NO TRACK POINTER®'/ 5 
165 Data byten7(¢) /,UNCORRECTABLE DATA®'/ 5 
166 Data byte_7(3) /*ECCS CHECK®'/ 5 
16 Data byte_7(4) 7*RESYNC CHECK®'/ 5 
168 Data byte_7(5) /*READ AUXILIARY CRC CHECK*'/ 5 
169 Data byte7(6) /*READ CRC CHECK®'/ 5 
170 Data byte_7(7) /*RESIDUAL CHECK®'/ 3 
172 Character*22 byte_8(0:7) 5 
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TU81_SENSE_BYTES_DECODE 


£ Output the extended sense information header. 
Write (lun,5) ‘TU81 EXTENDED SENSE INFORMATION’ 
Format (/' ‘,A31,/) 

3 Decode and output byte 0 of the extended sense information. 


Write (lun,10) "BYTE 0’. extended_sense(0) 
10 Format (* °,18,A,124,22.2) 


Call OUTPUT (Lun,extended_sense(0),byte_0, 0, 0, 7, ‘0") 


3 Decode and output byte 1 of the extended sense information. 


Write (lun,10) ‘BYTE 1°, extended_sense(1) 
Call OUTPUT (Lun,extended_sense(1),byte_1, 0, 0, 7, '0") 


: Decode and output byte 2 of the extended sense information. 
Write (lun,10) ‘BYTE 2", extended mate 
Call OUTPUT (Lun,extended_sense(2),byte_2, 0, 0, 7, '0") 
C Decode and output byte 3 of the extended sense information. 
Write (lun,10) ‘BYTE 3°, extended_sense(3) 
Call OUTPUT (Lun,extended_sense(3),byte_3_prti, 0, 0, ¢. *0') 
Call OUTPUT (lun,extended_sense(3),byte_3_prt2, 4, 4, 
3 Decode and output byte 4 of the extended sense information. 
Write (lun,10) ‘BYTE 4°, extended_sense(4) 
Write (lun,20) "FORMATTER COMMAND CODE = ', extended_sense(4) 
20 Format (° °,140,A25,22.2,°(X)") 
3 Decode and output byte 5 of the extended sense information. 
Write (lun,10) ‘BYTE 5‘, extended sense(5) 
Call OUTPUT (Lun,extended_sense(5J,byte_5, 0, 0, 7, '0") 
; Decode and output byte 6 of the extended sense information. 
Write (lun,10) ‘BYTE 6°, extended_sense(6) 
Call ouTPuf (Lun,extended_sense(6),byte_6, 2, 2, 7, '0°) 
; Decode and output byte 7 of the extended sense information. 


Write (lun,10) ‘BYTE 7", extended sense(7) 
Call output (Lun,extended_sense(7),byte_7, 0, 0, 7, ‘0°) 
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page 6 
DISKSVMSMASTER: CERF .SRCJTU81SENSE .FOR; 
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TU81_SENSE _BYTES_DECODE 1§-Sep-19 4 90: 19:37 VAX=-11_ FORTRAN Pees pore 5 
“Sep-1984 14:24:01 DISKSVMSMASTER: CERF .SRCJTU81SENSE .FOR; 


3 Decode and output byte 8 of the extended sense information. 
Write (lun,10) ‘BYTE 8', extended sense(8) 
Call OUTPUT (Lun,extended_sense(8),byte_8, 0, 0, 7, '0") 
3 Decode and output byte 9 of the extended sense information. 


Write (lun,10) ‘BYTE 9°, extended sense(9) 
Call OUTPUT (Lun,extended_sense(9J,byte_9, 0. 0, 7, '0") 
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3 Decode and output byte 10 of the extended sense information. 


3 Decode and output byte 14 of the extended sense information. 


Write (Lun, 28) "BYTE 14°, extended _sense(14),*COMMAND CODE’ 
28 Format (' ',1B,A,124,22.0,/,140,Al2) 


C Decode and output byte 15 of the extended sense information. 


0 

030 Write (lun,25) "BYTE 10°, extended_sense(10) 

0304 25 Format (' ',18,A,124,22.0) 

Bane If (extended_sense(10) .NE. 0) then 

0308 Do 27, I=0,7 

0309 

0310 Bit = LIBSEXTZV (1,1,extended_sense(10)) 

0311 If (bit) then 

o3ig Call LINCHK (Llun,1) 

031 Write (Lun,26) "RACK IN ERROR = ', byte_10(!) 

0314 26 Format (° °,140,A17,Al1,°.") 

0315 Endif 

0316 

0317 27 Cont inue 

bas Endif 

B59 ; Decode and output byte 11 of the extended sense information. 

0356 Write (lun,10) ‘BYTE 11°, extended _sense(11) 

0334 Call output (Lun,extended_sense(11),byte_11, 0, 0, 7, '0") 

0325 

Bes6 £ Decode and output byte 12 of the extended sense information. 

0338 Write (lun,10) "BYTE 12°, extended_sense(12) 

3 o Call output (Lun,extended_sense(12),byte_12, 2, 2, 7, ‘0") 

1 

a ; Decode and output byte 13 of the extended sense information. 

bs3z Write (lun,10) ‘BYTE 13°, extended seneot}@) 

$4 Call ouTPut (Lun,extended_sense(15),byte_15, 0, 0, 7, ‘0") 
r) 
0 
; 
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TU81_SENSE_BYTES_DECODE 


PROGRAM SECTIONS 


Name Bytes 
0 SCODE 1158 
1 SPDATA 3 
g SLOCAL 3084 

EMB 512 

Total Space Allocated 5065 


ENTRY POINTS 
Address Type 
0-00000000 


Name 
TU81_SENSE_BYTES_DECODE 


VARIABLES 
Address Type 
casas 


BIT 
I*4 COMP 


~000007F 0 RESS4 
1*2 ENBSW_HD_ENTRY 


00000004 
-000007F 4 


ARRAYS 


Address Type Name 


4 

5 Write (lun,30) ‘BYTE 15° t 
§ 30 Format (* 8°18,a.124,22.3,7 140 
8 

9 End 


etsy 


Attributes 

PIC CON REL LCL HR 

PIC CON REL LCL HR NOE 
PIC CON REL LCL NOSHR NOEXE 
PIC OVR REL GBL SHR NOEXE 


Address Type Name 
~QOOOO7EE L*1 CODE 
-00000000 I*4 EMBSL 

-Q000000E I*2 EMBSW_ 


aP-0000000¢a L*1 LUN 


Bytes Dimensions 


17 
“ 
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AAA 
SAN SS 
eww we ww ww www 


1 2eidt 


DISKSVMSMASTER: 


SE poneetts) . REINA, CONDITION CODE’ 


RD NOWRT LONG 


RD WRT LONG 


-HD_SID 
HD-ERRSEQ 


VAX=11 FORTRAN Rif - 


56 Page 6 
F.SR ScaTUBsISENSE.FOR’? 


TUB1_SENSE _BYTES_DECODE 1 Sep-19 r 0:36: 7 VAX=11 FORTRAN ¥3 4-36 


poge 
RF .SRCJTUB1SENSE . FOR; 


-$ep-1984 14:24:01 DISKSVMSMASTER: 
L*l EMB we (0:511) 
1*4 EMBSQ_HD_TIME (2) 
L*1 EXTENDED-SENSE 16 (0:15) 
LABELS 
Address Label Address Label Address Label Address Label Address Label Address Label 
st 1- OOFO : 1-000000FC 20° 1-0000010C 25° 1-00000118 26° ee 27 
100000185 38" 1=89000938 30" 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
1*4 LIBSEXTZV LINCHK OUTPUT 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:TU81SENSE/0BJ=0BJ$:TU81SENSE MSRC$:TUB1SENSE 


/CHECK=(NOBOUNDS , OVERF LOW, NOUNDERF LOW) 
fomeinniae TRACE EBACK ) 


COMPILATION STATISTICS 


Run Time: 4.30 seconds 
Elapsed Time: 13.08 seconds 
Page Faults: 169 
Dynamic Memory: 185 


EQUIPMENT CORPORATION 
NTIAL AND PROPRIETARY 


-BT13A-SE 
C75 V4.0 


0154 os 


